home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / STARMAP.DIR / 00006_Script_hilitexxx < prev    next >
Text File  |  1995-11-16  |  1KB  |  56 lines
  1. property  myChannel, littleSprite, bigSprite, myScript,normInk,rolloInk,pressInk, myLabel
  2.  
  3. on birth me, sp,theLabel,ls,bs
  4.   set myChannel to integer(sp)
  5.   set myScript to "go to frame"&"e&theLabel"e
  6.   set myLabel = theLabel 
  7.   set littleSprite to integer(ls)
  8.   set bigSprite to integer(bs)
  9.   set normInk to 5
  10.   set rolloInk to 37
  11.   set pressInk to 35
  12.   return me
  13. end
  14.  
  15. on norm me
  16.   puppetSprite littleSprite,TRUE
  17.   puppetSprite bigSprite,TRUE
  18.   set the ink of sprite littleSprite to normInk
  19.   set the ink of sprite bigSprite to normInk
  20.   updateStage
  21.   puppetSprite littleSprite, false
  22.   puppetSprite bigSprite, false
  23. end 
  24.  
  25. on rollo me
  26.   if myChannel then puppetSprite littleSprite,TRUE
  27.   puppetSprite bigSprite,TRUE
  28.   if myChannel then  set the ink of sprite littleSprite to rolloInk
  29.   set the ink of sprite bigSprite to rolloInk
  30.   updateStage
  31.   --puppetSprite myChannel, false
  32. end
  33.  
  34. on press me
  35. --  puppetSprite littleSprite,TRUE
  36. --  puppetSprite bigSprite,TRUE
  37. --  set the ink of sprite littleSprite to pressInk
  38. --  set the ink of sprite bigSprite to pressInk
  39. --  updateStage
  40. --  puppetSprite littleSprite, false
  41. --  puppetSprite bigSprite, false
  42. end
  43.  
  44.  
  45. on doScript me
  46.   if label(myLabel) <>0 then
  47.     do myScript
  48.   else
  49.     goGo(myLabel)   
  50.   end if
  51.   
  52. end
  53.  
  54. on doRollOverMe me
  55.   return (littleSprite<>0)
  56. end